#!/usr/bin/perl

use warnings;
use strict;

my $x = 12.5;
my $y = 9.8;
my $z = 10.5;

my $cube = $x * $y * $z;
print "The capacity of the room is $cube.\n";
